home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / abop-nested-polygon-leaves.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  329 b   |  16 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 20
  3. 7
  4. 50
  5. #
  6. &(10)c(4)Dc(6)[p>(72)p>(72)p>(72)p>(72)p]c(7)E    # 5 petal elements on a branch
  7. #
  8. p=[&(90)[A]+(72)[B]]                # one petal
  9. #
  10. A=[^gA{.].                    # first 'curved line'
  11. B=B^.g.}                    # second 'curved line'
  12. #
  13. D=t(.1)Ft(.1)FD                    # branch
  14. E=FE                        # stem
  15. @
  16.